home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / its / its-zhuyin.el.z / its-zhuyin.el
Encoding:
Text File  |  1998-05-21  |  8.1 KB  |  290 lines
  1. ;; Basic ZhuYin Translation Table for Egg+Takana+cWnn
  2. ;; Coded by Hiroshi Kuribayashi (kuri@nff.ncl.omron.co.jp)
  3.  
  4. ;; (0A(B!  (0B(B"  (0C(B#  (0D(B$  5%  6&  (0Q(B'  (0b(B(  (0c(B)  (0d(B   (0e$A!*(B (0f(B~  \|
  5. ;;   (0_(B   (0](B   (0g(B   (0\(B   (0J(B   (0a(B   (0i(B   (0^(B   (0[(B   (0F(B   @`  $A!0!.(B
  6. ;;     (0Z(B   (0Y(B    (0I(B   (0H(B  (0P(B   (0O(B   (0V(B   (0N(B   (0L(B   (0W$A#;(B (0X$A#:(B $A!1!/(B
  7. ;;       (0`(B   (0h(B   (0R(B   (0M(B   (0E(B   (0K(B  (0G(B    (0S$A#,(B (0T$A!#(B (0U$A#?(B $A!"(B
  8.  
  9. (its-define-mode "zhuyin" "$AW"(B" t)
  10.  
  11. (let ((its:make-terminal-state 'its:make-terminal-state-hangul))
  12.  
  13. (its-defrule "b"    "(0E(B")    ;;; B
  14. (its-defrule "p"    "(0F(B")    ;;; P
  15. (its-defrule "m"    "(0G(B")    ;;; M
  16. (its-defrule "f"    "(0H(B")    ;;; F
  17.  
  18. (its-defrule "d"    "(0I(B")    ;;; D
  19. (its-defrule "t"    "(0J(B")    ;;; T
  20. (its-defrule "n"    "(0K(B")    ;;; N
  21. (its-defrule "l"    "(0L(B")    ;;; L
  22.  
  23. (its-defrule "v"    "(0M(B")    ;;; G
  24. (its-defrule "k"    "(0N(B")    ;;; K
  25. (its-defrule "h"    "(0O(B")    ;;; H
  26.  
  27. (its-defrule "g"    "(0P(B")    ;;; J
  28. (its-defrule "7"    "(0Q(B")    ;;; Q
  29. (its-defrule "c"    "(0R(B")    ;;; X
  30.  
  31. (its-defrule ","    "(0S(B")    ;;; Zh
  32. (its-defrule "."    "(0T(B")    ;;; Ch
  33. (its-defrule "/"    "(0U(B")    ;;; Sh
  34. (its-defrule "j"    "(0V(B")    ;;; R
  35.  
  36. (its-defrule ";"    "(0W(B")    ;;; Z
  37. (its-defrule ":"    "(0X(B")    ;;; C
  38. (its-defrule "s"    "(0Y(B")    ;;; S
  39.  
  40. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41. (its-defrule "a"    "(0Z@(B")    ;;; a
  42. (its-defrule "a1"    "(0ZA(B")
  43. (its-defrule "a2"    "(0ZB(B")
  44. (its-defrule "a3"    "(0ZC(B")
  45. (its-defrule "a4"    "(0ZD(B")
  46.  
  47. (its-defrule "i"    "(0^@(B")    ;;; ai
  48. (its-defrule "i1"    "(0^A(B")
  49. (its-defrule "i2"    "(0^B(B")
  50. (its-defrule "i3"    "(0^C(B")
  51. (its-defrule "i4"    "(0^D(B")
  52.  
  53. (its-defrule "8"    "(0b@(B")    ;;; an
  54. (its-defrule "81"    "(0bA(B")
  55. (its-defrule "82"    "(0bB(B")
  56. (its-defrule "83"    "(0bC(B")
  57. (its-defrule "84"    "(0bD(B")
  58.  
  59. (its-defrule "0"    "(0d@(B")    ;;; ang
  60. (its-defrule "01"    "(0dA(B")
  61. (its-defrule "02"    "(0dB(B")
  62. (its-defrule "03"    "(0dC(B")
  63. (its-defrule "04"    "(0dD(B")
  64.  
  65. (its-defrule "z"    "(0`@(B")    ;;; ao
  66. (its-defrule "z1"    "(0`A(B")
  67. (its-defrule "z2"    "(0`B(B")
  68. (its-defrule "z3"    "(0`C(B")
  69. (its-defrule "z4"    "(0`D(B")
  70.  
  71. (its-defrule "r"    "(0\@(B")    ;;; e
  72. (its-defrule "r1"    "(0\A(B")
  73. (its-defrule "r2"    "(0\B(B")
  74. (its-defrule "r3"    "(0\C(B")
  75. (its-defrule "r4"    "(0\D(B")
  76.  
  77. (its-defrule "w"    "(0]@(B")    ;;; (0:(B
  78. (its-defrule "w1"    "(0]A(B")
  79. (its-defrule "w2"    "(0]B(B")
  80. (its-defrule "w3"    "(0]C(B")
  81. (its-defrule "w4"    "(0]D(B")
  82.  
  83. (its-defrule "q"    "(0_@(B")    ;;; ei
  84. (its-defrule "q1"    "(0_A(B")
  85. (its-defrule "q2"    "(0_B(B")
  86. (its-defrule "q3"    "(0_C(B")
  87. (its-defrule "q4"    "(0_D(B")
  88.  
  89. (its-defrule "9"    "(0c@(B")    ;;; en
  90. (its-defrule "91"    "(0cA(B")
  91. (its-defrule "92"    "(0cB(B")
  92. (its-defrule "93"    "(0cC(B")
  93. (its-defrule "94"    "(0cD(B")
  94.  
  95. (its-defrule "-"    "(0e@(B")    ;;; eng
  96. (its-defrule "-1"    "(0eA(B")
  97. (its-defrule "-2"    "(0eB(B")
  98. (its-defrule "-3"    "(0eC(B")
  99. (its-defrule "-4"    "(0eD(B")
  100.  
  101. (its-defrule "o"    "(0[@(B")    ;;; o
  102. (its-defrule "o1"    "(0[A(B")
  103. (its-defrule "o2"    "(0[B(B")
  104. (its-defrule "o3"    "(0[C(B")
  105. (its-defrule "o4"    "(0[D(B")
  106.  
  107. (its-defrule "y"    "(0a@(B")    ;;; ou
  108. (its-defrule "y1"    "(0aA(B")
  109. (its-defrule "y2"    "(0aB(B")
  110. (its-defrule "y3"    "(0aC(B")
  111. (its-defrule "y4"    "(0aD(B")
  112.  
  113. (its-defrule "^"    "(0f@(B")    ;;; er
  114. (its-defrule "^1"    "(0fA(B")
  115. (its-defrule "^2"    "(0fB(B")
  116. (its-defrule "^3"    "(0fC(B")
  117. (its-defrule "^4"    "(0fD(B")
  118.  
  119. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  120. (its-defrule "e"    "(0g@(B")    ;;; i
  121. (its-defrule "e1"    "(0gA(B")
  122. (its-defrule "e2"    "(0gB(B")
  123. (its-defrule "e3"    "(0gC(B")
  124. (its-defrule "e4"    "(0gD(B")
  125.  
  126. (its-defrule "ea"    "(0gZ@(B")    ;;; ia
  127. (its-defrule "ea1"    "(0gZA(B")
  128. (its-defrule "ea2"    "(0gZB(B")
  129. (its-defrule "ea3"    "(0gZC(B")
  130. (its-defrule "ea4"    "(0gZD(B")
  131.  
  132. (its-defrule "e8"    "(0gb@(B")    ;;; ian
  133. (its-defrule "e81"    "(0gbA(B")
  134. (its-defrule "e82"    "(0gbB(B")
  135. (its-defrule "e83"    "(0gbC(B")
  136. (its-defrule "e84"    "(0gbD(B")
  137.  
  138. (its-defrule "e0"    "(0gd@(B")    ;;; iang
  139. (its-defrule "e01"    "(0gdA(B")
  140. (its-defrule "e02"    "(0gdB(B")
  141. (its-defrule "e03"    "(0gdC(B")
  142. (its-defrule "e04"    "(0gdD(B")
  143.  
  144. (its-defrule "ez"    "(0g`@(B")    ;;; iao
  145. (its-defrule "ez1"    "(0g`A(B")
  146. (its-defrule "ez2"    "(0g`B(B")
  147. (its-defrule "ez3"    "(0g`C(B")
  148. (its-defrule "ez4"    "(0g`D(B")
  149.  
  150. (its-defrule "ew"    "(0g]@(B")    ;;; ie
  151. (its-defrule "ew1"    "(0g]A(B")
  152. (its-defrule "ew2"    "(0g]B(B")
  153. (its-defrule "ew3"    "(0g]C(B")
  154. (its-defrule "ew4"    "(0g]D(B")
  155.  
  156. (its-defrule "e9"    "(0gc@(B")    ;;; in
  157. (its-defrule "e91"    "(0gcA(B")
  158. (its-defrule "e92"    "(0gcB(B")
  159. (its-defrule "e93"    "(0gcC(B")
  160. (its-defrule "e94"    "(0gcD(B")
  161.  
  162. (its-defrule "e-"    "(0ge@(B")    ;;; ing
  163. (its-defrule "e-1"    "(0geA(B")
  164. (its-defrule "e-2"    "(0geB(B")
  165. (its-defrule "e-3"    "(0geC(B")
  166. (its-defrule "e-4"    "(0geD(B")
  167.  
  168. (its-defrule "u-"    "(0ie@(B")    ;;; iong
  169. (its-defrule "u-1"    "(0ieA(B")
  170. (its-defrule "u-2"    "(0ieB(B")
  171. (its-defrule "u-3"    "(0ieC(B")
  172. (its-defrule "u-4"    "(0ieD(B")
  173.  
  174. (its-defrule "ey"    "(0ga@(B")    ;;; iou
  175. (its-defrule "ey1"    "(0gaA(B")
  176. (its-defrule "ey2"    "(0gaB(B")
  177. (its-defrule "ey3"    "(0gaC(B")
  178. (its-defrule "ey4"    "(0gaD(B")
  179.  
  180. (its-defrule "x-"    "(0he@(B")    ;;; ong
  181. (its-defrule "x-1"    "(0heA(B")
  182. (its-defrule "x-2"    "(0heB(B")
  183. (its-defrule "x-3"    "(0heC(B")
  184. (its-defrule "x-4"    "(0heD(B")
  185.  
  186. (its-defrule "x"    "(0h@(B")    ;;; u
  187. (its-defrule "x1"    "(0hA(B")
  188. (its-defrule "x2"    "(0hB(B")
  189. (its-defrule "x3"    "(0hC(B")
  190. (its-defrule "x4"    "(0hD(B")
  191.  
  192. (its-defrule "xa"    "(0hZ@(B")    ;;; ua
  193. (its-defrule "xa1"    "(0hZA(B")
  194. (its-defrule "xa2"    "(0hZB(B")
  195. (its-defrule "xa3"    "(0hZC(B")
  196. (its-defrule "xa4"    "(0hZD(B")
  197.  
  198. (its-defrule "xi"    "(0h^@(B")    ;;; uai
  199. (its-defrule "xi1"    "(0h^A(B")
  200. (its-defrule "xi2"    "(0h^B(B")
  201. (its-defrule "xi3"    "(0h^C(B")
  202. (its-defrule "xi4"    "(0h^D(B")
  203.  
  204. (its-defrule "x8"    "(0hb@(B")    ;;; uan
  205. (its-defrule "x81"    "(0hbA(B")
  206. (its-defrule "x82"    "(0hbB(B")
  207. (its-defrule "x83"    "(0hbC(B")
  208. (its-defrule "x84"    "(0hbD(B")
  209.  
  210. (its-defrule "x0"    "(0hd@(B")    ;;; uang
  211. (its-defrule "x01"    "(0hdA(B")
  212. (its-defrule "x02"    "(0hdB(B")
  213. (its-defrule "x03"    "(0hdC(B")
  214. (its-defrule "x04"    "(0hdD(B")
  215.  
  216. (its-defrule "xq"    "(0h_@(B")    ;;; uei
  217. (its-defrule "xq1"    "(0h_A(B")
  218. (its-defrule "xq2"    "(0h_B(B")
  219. (its-defrule "xq3"    "(0h_C(B")
  220. (its-defrule "xq4"    "(0h_D(B")
  221.  
  222. (its-defrule "x9"    "(0hc@(B")    ;;; uen
  223. (its-defrule "x91"    "(0hcA(B")
  224. (its-defrule "x92"    "(0hcB(B")
  225. (its-defrule "x93"    "(0hcC(B")
  226. (its-defrule "x94"    "(0hcD(B")
  227.  
  228. (its-defrule "xo"    "(0h[@(B")    ;;; uo
  229. (its-defrule "xo1"    "(0h[A(B")
  230. (its-defrule "xo2"    "(0h[B(B")
  231. (its-defrule "xo3"    "(0h[C(B")
  232. (its-defrule "xo4"    "(0h[D(B")
  233.  
  234. (its-defrule "u"    "(0i@(B")    ;;; (09(B
  235. (its-defrule "u1"    "(0iA(B")
  236. (its-defrule "u2"    "(0iB(B")
  237. (its-defrule "u3"    "(0iC(B")
  238. (its-defrule "u4"    "(0iD(B")
  239.  
  240. (its-defrule "u8"    "(0ib@(B")    ;;; (09(Ban
  241. (its-defrule "u81"    "(0ibA(B")
  242. (its-defrule "u82"    "(0ibB(B")
  243. (its-defrule "u83"    "(0ibC(B")
  244. (its-defrule "u84"    "(0ibD(B")
  245.  
  246. (its-defrule "uw"    "(0i]@(B")    ;;; (09(Be
  247. (its-defrule "uw1"    "(0i]A(B")
  248. (its-defrule "uw2"    "(0i]B(B")
  249. (its-defrule "uw3"    "(0i]C(B")
  250. (its-defrule "uw4"    "(0i]D(B")
  251.  
  252. (its-defrule "u9"    "(0ic@(B")    ;;; (09(Bn
  253. (its-defrule "u91"    "(0icA(B")
  254. (its-defrule "u92"    "(0icB(B")
  255. (its-defrule "u93"    "(0icC(B")
  256. (its-defrule "u94"    "(0icD(B")
  257.  
  258. ;;(its-defrule "ei"    "(0g^@(B")    ;;; iai
  259. ;;(its-defrule "ei1"    "(0g^A(B")
  260. ;;(its-defrule "ei2"    "(0g^B(B")
  261. ;;(its-defrule "ei3"    "(0g^C(B")
  262. ;;(its-defrule "ei4"    "(0g^D(B")
  263.  
  264. ;;(its-defrule "eo"    "(0g[@(B")    ;;; io
  265. ;;(its-defrule "eo1"    "(0g[A(B")
  266. ;;(its-defrule "eo2"    "(0g[B(B")
  267. ;;(its-defrule "eo3"    "(0g[C(B")
  268. ;;(its-defrule "eo4"    "(0g[D(B")
  269.  
  270. (its-defrule "m1"    "(0GA(B")    ;;; M
  271. (its-defrule "hm"    "(0OGA(B")    ;;; Hm
  272. (its-defrule "h@"    "(0O(B@(0A(B")    ;;; Hng
  273. (its-defrule "@1"    "@(0A(B")    ;;; Ng
  274. (its-defrule "n1"    "(0KA(B")    ;;; N
  275.  
  276. (its-defrule "<"      "$A#,(B")
  277. (its-defrule ">"    "$A!#(B")
  278. (its-defrule "+"    "$A#;(B")
  279. (its-defrule "*"    "$A#:(B")
  280. (its-defrule "?"    "$A#?(B")
  281. (its-defrule "_"    "$A!"(B")
  282. (its-defrule "!"    "$A#!(B")
  283. (its-defrule "["    "$A!0(B")
  284. (its-defrule "]"    "$A!1(B")
  285. (its-defrule "{"    "$A!.(B")
  286. (its-defrule "}"    "$A!/(B")
  287. (its-defrule "="    "$A!*(B")
  288.  
  289. )
  290.